home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
4thcmp21.zip
/
BYTEBNCH.4TH
< prev
next >
Wrap
Text File
|
1993-06-23
|
543b
|
17 lines
( BYTE MAGAZINE BENCHMARK )
DECIMAL 256 MSDOS
8190 CONSTANT SIZE 10000 CONSTANT FLAGS ( STARTS AT 10000 )
0 0 IN/OUT : DO-PRIME FLAGS SIZE 1 FILL
0 SIZE 0
DO FLAGS I + C@
IF I 2* 3 + DUP I + FLAGS +
BEGIN DUP SIZE FLAGS + U<
WHILE DUP 0 C<- OVER + REPEAT
DROP DROP 1+
THEN
LOOP
U. ." PRIMES" CR ;
: MAIN ." 10 ITERATIONS" CR 10 0 DO DO-PRIME LOOP ;
INCLUDE FORTHLIB
END